0 CLR:REM COPYRIGHT 1991 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
10 PRINTCHR$(147):POKE646,6:POKE53280,1:POKE53281,1:REM SET UP SCREEN
20 DIMNU$(22),D$(14):REM 22 IS MAX. NO. OF NAMES, 14 IS DIGITS IN TEL. NUMBER
30 F(1)=54272:F(2)=54273:F(3)=54279:F(4)=54280:REM VOICES 1 & 2 FREQUENCY
40 G=54276:H=54283:REM CONTROL FOR VOICES 1 AND 2
50 VN=65:VF=64:REM VN TURNS ON SQUARE WAVE, VF TURNS IT OFF
60 FORL=54272TO54295:POKEL,0:NEXT:REM CLEAR SOUND CHIP
70 POKE54296,15:REM FULL VOLUME
80 POKE54275,8:POKE54282,8:REM SELECT SQUARE WAVE
90 POKE54277,20:POKE54284,20:REM ATTACK AND DECAY VOICES 1 AND 2
100 POKE54278,192:POKE54285,192:REM SUSTAIN AND RELEASE VOICES 1 AND 2
110 REM NEXT 6 LINES ASSIGN TWO FREQUENCIES FOR EACH KEY; SEE ARTICLE
120 FORN=1TO3:W(1,N)=170:W(2,N)=44:NEXT:REM FIRST FREQ FOR KEYS 1, 2 & 3
130 FORN=4TO6:W(1,N)=87:W(2,N)=49:NEXT:REM FIRST FREQ FOR KEYS 4, 5 & 6
140 FORN=7TO9:W(1,N)=153:W(2,N)=54:NEXT:REM FIRST FREQ FOR KEYS 7, 8 & 9
150 W(1,0)=77:W(2,0)=60:REM FIRST FREQ FOR KEY 0
160 FORN=1TO7STEP3:W(3,N)=121:W(4,N)=77:NEXT:REM SECOND FREQ FOR KEYS 1, 4 & 7
170 FORN=2TO8STEP3:W(3,N)=156:W(4,N)=85:NEXT:REM SECOND FREQ FOR KEYS 2, 5 & 8
180 FORN=3TO9STEP3:W(3,N)=165:W(4,N)=94:NEXT:REM SECOND FREQ FOR KEYS 3, 6 & 9
190 W(3,0)=156:W(4,0)=85:REM SECOND FREQ FOR KEY 0
200 PRINTTAB(30)"PRESS
210 [153][163]30)"RETURN
220 PRINTTAB(30)"TO DIAL
230 [153]"":[141]350:[141]440
240 Z[178]50:[143] LENGTH OF TONES
250 [161]A$:[139]A$[179][177]"ON"[167][139]A$[179][177]""[167][139]A$[179][177][199](13)[167]250
260 [139]A$[178]"ON"[176]A$[178]""[167][141]440:[137]250
270 N$[178]NU$(Y)
280 [129]N[178]1[164][195](N$):D$(N)[178][202](N$,N,1):[143] READ TELEPHONE NUMBER
290 [139]D$(N)[178]"-"[167][130]
300 [129]T[178]1[164]4:[151]F(T),W(T,([197](D$(N)))):[130]:[143] POKE FREQUENCIES VOICES 1 & 2
310 [151]G,VN:[151]H,VN:[143] TONES ON
320 [129]T[178]1[164]Z:[130]:[143] LENGTH OF TONES
330 [151]G,VF:[151]H,VF:[143] TONES OFF
340 [130]:[137]250
350 [135]N$,NU$(C):[139]NU$(C)[178]"Q"[167][142]
360 [153][166]3)N$[163]18)NU$(C)
370 C[178]C[170]1:[139]C[177]22[167][153]"NO MORE THAN 22 NAMES AND NUMBERS!":[128]
380 [137]350
390 [131]JIM,111-1111: [143]* PLACE YOUR
400 [131]BILL,222-2222:[143]* DATA ON LINE
410 [131]MIKE,333-3333:[143]* 400 THROUGH
420 [131]DAVE,444-4444:[143]* LINE 421
430 [131]Q,Q:[143] DON'T CHANGE THIS LINE!
440 [151]214,Y:[153]:[151]211,2:[153]" "
450 [139]A$[178]"ON"[167]Y[178]Y[171]1:[139]Y[179]0[167]Y[178]0
460 [139]A$[178]""[167]Y[178]Y[170]1:[139]Y[177]C[171]1[167]Y[178]C[171]1
470 [151]214,Y:[153]:[151]211,2:[153]"*":[142]